home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / emac16as.arc / MINTLAST.ASM < prev    next >
Assembly Source File  |  1990-04-01  |  2KB  |  78 lines
  1.     include    memory.def
  2.  
  3. code    segment public
  4.         public  lastcode
  5. lastcode        label   byte
  6. code    ends
  7.  
  8. _DATA    segment    public
  9. _DATA    ends
  10.  
  11. data    segment public
  12.  
  13.         db      -1                      ;any non-zero value will do here.
  14.  
  15.         public  OUTPATSIZE, outpat
  16. OUTPATSIZE      equ     200
  17. outpat          db      OUTPATSIZE dup(?)
  18.  
  19.         public  stackp
  20.     db    256 dup(055h,0aah)
  21. stackp  label   byte
  22.  
  23.         public  lomem, lomem_end
  24. lomem   label   byte
  25. db '#(rd)#(ow,(',CR,LF
  26. db 'Freemacs, a programmable editor - Version )##(lv,vn)(',CR,LF
  27. db 'Copyright (C) Russell Nelson 1986-1990',CR,LF
  28. db '))'
  29. db '#(ds,Farglist,(SELF,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9))'
  30. db '#(ds,Fsearch-path,(#(SELF-do,##(fm,env.PATH,;,(##(gn,env.PATH,1000))))'
  31. db '#(rs,env.PATH)))'
  32. db '#(mp,Fsearch-path,#(Farglist))'
  33. db '#(ds,Fsearch-path-do,(#(==,arg1,,,('
  34. db '    #(==,#(ff,arg1\emacs.ed,;),,('
  35. db '        #(SELF,##(fm,env.PATH,;,(##(gn,env.PATH,1000))))'
  36. db '    ),(#(ds,env.EMACS,arg1\)))'
  37. db '))))'
  38. db '#(mp,Fsearch-path-do,#(Farglist))'
  39. db '#(ev)'
  40. db '#(n?,env.EMACS,('
  41. db '    #(mp,env.EMACS,,/)'
  42. db '    #(ds,env.EMACS,##(env.EMACS,\))'
  43. db '    #(gn,env.EMACS,#(--,#(nc,##(env.EMACS)),1))'
  44. db '    #(==,##(go,env.EMACS)#(rs,env.EMACS),\,,('
  45. db '        #(ds,env.EMACS,##(env.EMACS)\)'
  46. db '    ))'
  47. db '))'
  48. db '#(n?,env.EMACS,,(#(Fsearch-path)))'
  49. db '#(n?,env.EMACS,,(#(==,#(ff,\emacs\emacs.ed,;),,,(#(ds,env.EMACS,\emacs\)))))'
  50. db '#(an,Loading #(env.EMACS)emacs.ed...)'
  51. db '#(==,#(ll,#(env.EMACS)emacs.ed),,('
  52. db '    #(an,Starting editor...)'
  53. db '    #(rf,#(env.EMACS)emacs.min)'
  54. db '    #(sp,[)#(rm,])#(dm,])'
  55. db '    #(##(lib-name)&setup)'
  56. db '),('
  57. db '    #(an)'
  58. db '    #(ow,(',CR,LF
  59. db 'Cannot find emacs.ed - Set the environment string EMACS to the subdirectory',CR,LF
  60. db 'containing the Freemacs .ed files.  For example, EMACS=c:\freemacs\',CR,LF
  61. db 'Press any key to return to DOS...))'
  62. db '    #(it,10000)#(hl,1)'
  63. db '))'
  64. db ')'    ;this is the sentinel that marks the end of the active string.
  65. lomem_end    label    byte
  66.  
  67. data    ends
  68.  
  69.  
  70. bufseg    segment public
  71.  
  72.     public    bufseg_size
  73. bufseg_size    equ    $
  74.  
  75. bufseg    ends
  76.  
  77.         end
  78.